home *** CD-ROM | disk | FTP | other *** search
/ Journey to the Planets (Wayzata) / Journey to the Planets (Wayzata Technology) (1994).iso / pc / pluto / pluto.hc / card_4117.txt < prev    next >
Text File  |  1994-12-16  |  614b  |  32 lines
  1. -- card: 4117 from stack: in.hc
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2813
  5. -- name: D2
  6. ----- HyperTalk script -----
  7. on openCard
  8.   lock screen
  9.   colorizeHC "Add","PLANETS:PLUTO:UI_MAC:D02.PIC"
  10.   unlock screen
  11.   unlock screen
  12.   QTMovie OpenMovie,Plain,"PLANETS:PLUTO:D2PLU.AVI", "82,121", nocontroller,dontPaintWhite,loop
  13. end openCard
  14.  
  15.  
  16.  
  17. on closeCard
  18.   lock screen
  19.   noPaintWhite
  20.   if there is a window "D2PLU.AVI" then close window "D2PLU.AVI"
  21.   colorizeHC "colorFill"   -- redraw previous screens
  22.   unlock screen
  23. end closeCard
  24.  
  25. on goEvent
  26.   lock screen
  27.   go to cd "D1"
  28.   unlock screen
  29. end goEvent
  30.  
  31.  
  32.